10 POKE56,56:POKE55,0:CLR:POKE53371,0
20 DV=PEEK(186):IFDV<8THENDV=8
22 HZ$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
24 SP$="                                        "
26 EB$(0)="  @    @  "
27 EB$(1)=" @    @   "
28 EB$(2)="   @    @ "
30 POKE53281,0:POKE53280,0:PRINT"[147]"
32 X=1:Y=0:XX=36:YY=21:GOSUB100
34 PRINTTAB(4)"[129][176][192][192][178][192][192][174] [176][192][192][192][192][192][174] [176][192][192][192][192][192][174] [176][192][192][174]  [176]
35 [153][163]4)"   (null)    (null)     (null) (null)     (null) (null)  (null)  (null)
36 PRINTTAB(4)"   [177]    [173][192][192][192][192][192][189] [173][192][192][192][192][192][189] [189]  [173][192][192][189]
38 [153]"LIST        (null)LEFT$VAL (null)RIGHT$CHR$LEFT$(null)(null) (null)(null)ATNSTR$(null)(null)ATN(null)"
40 [153]"     (null)(null)(null)(null) (null)ASC (null)LEFT$VAL (null)(null)(null)(null)LEFT$ LEN(null)(null)(null)VAL(null)(null)
50 IFGTHEN120
60 G=1
70 SYS57812"TOON.FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
72 POKE53272,31
80 SYS57812"TOON.ML",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
90 SYS57812"TOON ?.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
92 SC=204*256:SYSSC,96,92,56
94 MD=PEEK(64*256)
96 GOTO120
100 POKE214,Y:PRINT
102 PRINTTAB(X)"[176]"LEFT$(HZ$,XX)"[174]"
104 FORI=1TOYY:PRINTTAB(X)"[221]"LEFT$(SP$,XX)"[221]":NEXT
106 PRINTTAB(X)"[173]"LEFT$(HZ$,XX)"[189]"
108 RETURN
110 MD=PEEK(64*256)
120 PRINT" 1[154] [202]UST SHOW THE TOON.
130 [153]" 2CONT (null)HOW THE TOON AND PRINT IT ON A
140 PRINT"   7-PIN (1525-EMULATING) PRINTER.
150 [153]" 3CONT (null)HOW THE TOON AND PRINT IT ON AN
160 PRINT"   8-PIN ([197]PSON-EMULATING) PRINTER.
170 [153]" 4CONT VALNTER A CAPTION FOR THE TOON.
180 PRINT" 5[159] [210]ETURN TO [204][207][193][196][211][212][193][210].
190 [153]"LIST (null)AKE SURE YOUR PRINTER IS ON-LINE.
200 POKE198,0
206 IFRND(1)>.98THENPOKE214,3:PRINT:PRINTTAB(13)EB$(RND(1)*3)
210 GETA$:IFA$<"1"ORA$>"5"THEN206
220 A1=VAL(A$):IFA1=5THEN40000
230 IFA1=4THEN690
240 IFA1=1THEN600
250 IFA1=2THENTB=80:GOTO430
260 GOSUB680
270 POKE214,11:PRINT
280 PRINTTAB(7)"    [196][197][206][211][201][212][217]      [215][201][196][212][200]
290 [153][163]7)" 1CONT (null)INGLE       WIDE
300 PRINTTAB(7)" 2[154] [195]RT          NORMAL
310 [153][163]7)" 3CONT STR$OUBLE       NARROW
320 PRINTTAB(7)" 4[154] [196]OUBLE       WIDE
330 [153][163]7)" 5CONT (null)UAD         NARROW
340 PRINTTAB(7)" 6[154] [209]UAD         NORMAL
342 [153][163]7)" 7OPEN PEEKACK TO THE (null)AIN (null)ENU
350 POKE198,0
360 GETA$:IFA$<"1"ORA$>"7"THEN360
370 A2=VAL(A$):IFA2=1THEN DS=0:BT=1:TB=80
380 IFA2=2THEN DS=4:BT=1:TB=120
390 IFA2=3THEN DS=1:BT=1:TB=160
400 IFA2=4THEN DS=1:BT=2:TB=80
410 IFA2=5THEN DS=3:BT=2:TB=160
420 IFA2=6THEN DS=3:BT=3:TB=120
422 IFA2=7THEN30
430 GOSUB680
440 POKE214,11:PRINT
450 PRINTTAB(9)"    [212][193][194][160][208][207][211][201][212][201][207][206]
460 [153][163]9)" 1CONT (null)EFT
470 PRINTTAB(9)" 2[154]     [195]ENTER
480 [153][163]9)" 3CONT         (null)IGHT
490 IFA2<>3ANDA2<>5THEN520
500 PRINTTAB(9)" 4[154]   [195]ENTER-LEFT
510 [153][163]9)" 5CONT       LENENTER-RIGHT
512 PRINTTAB(9)" 6[159] [194]ACK TO [205]AIN [205]ENU
520 [151]198,0
530 [161]A$:[139]A$[179]"1"[176]A$[177]"6"[167]530
532 [139]A$[178]"6"[167]30
540 [139]A$[178]"1"[167]TB[178]0:[137]600
550 [139]A$[178]"2"[167]600
560 [139]A$[178]"3"[167]TB[178]TB[172]2:[137]600
570 [139]A2[179][177]3[175]A2[179][177]5[167]520
580 [139]A$[178]"4"[167]TB[178]53:[137]600
590 TB[178]266
600 [151]251,64:[151]252,96:[151]253,92:[139]G[178]1[167][158]51456
610 [158]51459
620 [139]A1[178]2[167][158]49152,TB,MD:[137]660
630 [139]A1[178]3[167][158]49155,TB,DS,BT,BT[172]320,MD:[137]660
640 [151]198,0
650 [161]A$:[139]A$[178]""[167]650
660 [151]186,DV:[158]51459
670 [137]30
680 [151]214,8:[153]:[129]I[178]1[164]14:[153][163]2)[200](SP$,35):[130]:[142]
690 [151]251,64:[151]252,96:[151]253,92:[158]51456
700 [151]214,17:[153]
710 [158]51459
720 [158]SC[170]6,1,23,"	PRINT#VALNTER YOUR CAPTION HERE. (null)HEN DONE,
730 SYSSC+6,1,24,"PRESS [198]1. [208]RESS [211][208][193][195][197] TO BEGIN.
740 [151]198,0
750 [161]A$:[139]A$[179][177]" "[167]750
760 [158]SC[170]6,0,23,"                                        "
770 [158]SC[170]6,0,24,"                                        STOP	"
780 [158]SC[170]6,1,23," WAITCMD"
790 [151]198,0:[158]SC[170]3," WAITCMD"
800 [161]A$:[139]A$[178]""[167]800
810 [139]A$[178][199](133)[167][158]SC[170]3," ":[158]51459:G[178]2:[137]30
820 [139]A$[178][199](20)[167][158]SC[170]3," CMDCMD":[137]790
830 [139]A$[178]"CMD"[167][158]SC[170]3," CMDCMD WAITCMD":[137]790
840 [139]A$[178]""[167][158]SC[170]3,"  WAITCMD":[137]790
850 [139]A$[178]""[167][158]SC[170]3," CMD WAITCMD":[137]790
860 [139]A$[178]"ON"[167][158]SC[170]3," ONCMD WAITCMD":[137]790
870 [139]A$[178][199](34)[167]790
880 [139]A$[178][199](13)[167][158]SC[170]3," "
890 [139]A$[177]"(null)"[167]790
900 [139]A$[177]"_"[175]A$[179]"ATN"[167]790
910 [158]SC[170]3,A$
920 [137]790
10000 D[178][194](186):N$[178]"B.TOON 169":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]